home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
freszone.asc
< prev
next >
Wrap
Text File
|
1990-10-14
|
1KB
|
29 lines
100 ' fresnel caculator
110 ' john schneider
120 ' radio world 2-1-87 p21
1030 DIM G$(35)
1040 CLS
1050 '
1060 PRINT TAB(5); "Fresnel Zone Calculator"
1070 INPUT "How long is STL path in miles? ";L
1080 INPUT "Calculate Fresnel Zone for every ? miles: ";I
1090 INPUT "Frequency in mHz: ";F
1100 INPUT "Report for: ";G$
1110 P=0
1130 CLS
1140 PRINT TAB(8) " 0.6 First Fresnel Radius Table"
1150 PRINT TAB(5) "=========================================="
1160 PRINT TAB(5) "Path length: ";L;" Miles"
1170 PRINT TAB(5) "Frequency: ";F;" mHz"
1180 PRINT TAB(5) "Report for: ";G$
1190 PRINT "Distance from transmitter";TAB(33) "Fresnel Clearance"
1200 PRINT "-------------------------";TAB(33) "-----------------"
1210 FOR X=0 TO L STEP I
1220 H=1316*SQR((X*(L-X))/(F*L))
1230 PRINT TAB (5);X;" Mi";TAB(35);H;" Ft.";
1240 IF X<> L/2 THEN 1250 ELSE PRINT TAB(50)"<< Mid point"
1250 NEXT X
1270 PRINT:INPUT" Do it again";Y$:Y=ASC(Y$)
1280 IF Y=89 OR Y=121 THEN 1040
1290 END